﻿Public Class F04_V_reverso_
    Private Sub btnAnverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnverso.Click
        Me.Close()
        F04_V_anverso_.Show()
    End Sub

    Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar.Click
        Dim oF04VRNegocios As New Negocios.NF04_VR
        Dim oF04VR As New Entidades.EF04Vehiculos
        oF04VR.apenomacreedo1 = UCase(txtapenomacreedor1.Text)
        oF04VR.apenomaapoderad1 = UCase(txtapenomapoderado1.Text)
        oF04VR.dnii1 = UCase(txtdni1.Text)
        oF04VR.lee1 = UCase(txtle1.Text)
        oF04VR.lcc1 = UCase(txtlc1.Text)
        oF04VR.dniext1 = UCase(txtdniextr1.Text)
        oF04VR.ciext1 = UCase(txtciextr1.Text)
        oF04VR.pasa1 = UCase(txtpasap1.Text)
        oF04VR.numer1 = UCase(txtnumero1.Text)
        oF04VR.autorida1 = UCase(txtautoridad1.Text)
        oF04VR.apenomacreedo2 = UCase(txtapenomacreedor2.Text)
        oF04VR.apenomaapoderad2 = UCase(txtapenomapoderado2.Text)
        oF04VR.dnii2 = UCase(txtdni2.Text)
        oF04VR.lee2 = UCase(txtle2.Text)
        oF04VR.lcc2 = UCase(txtlc1.Text)
        oF04VR.dniext2 = UCase(txtdniextr2.Text)
        oF04VR.ciext2 = UCase(txtciextr2.Text)
        oF04VR.pasa2 = UCase(txtpasap2.Text)
        oF04VR.numer2 = UCase(txtnumero2.Text)
        oF04VR.autorida2 = UCase(txtautoridad2.Text)
        oF04VR.apenompro = UCase(txtapenomprop.Text)
        oF04VR.solteropro = UCase(txtsolteroprop.Text)
        oF04VR.casadopro = UCase(txtsolteroprop.Text)
        oF04VR.viudopro = UCase(txtviudoprop.Text)
        oF04VR.divpro = UCase(txtdivprop.Text)
        oF04VR.numnupciapro = UCase(txtnumnupciaprop.Text)
        oF04VR.apeapodpro = UCase(txtapeapodprop.Text)
        oF04VR.dnipro = UCase(txtdniprop.Text)
        oF04VR.lepro = UCase(txtleprop.Text)
        oF04VR.lcpro = UCase(txtlcprop.Text)
        oF04VR.dniextrpro = UCase(txtdniextrprop.Text)
        oF04VR.ciextrpro = UCase(txtciextrprop.Text)
        oF04VR.pasappro = UCase(txtpasapprop.Text)
        oF04VR.numpro = UCase(txtnumprop.Text)
        oF04VR.autoridadpro = UCase(txtautoridadprop.Text)
        oF04VR.apenomconypro = UCase(txtapenomconyprop.Text)
        oF04VR.apeapodconypro = UCase(txtapeapodconyprop.Text)
        oF04VR.dniconypro = UCase(txtdniconyprop.Text)
        oF04VR.lcconypro = UCase(txtlcconyprop.Text)
        oF04VR.lcconypro = UCase(txtlcconyprop.Text)
        oF04VR.dniextrconypro = UCase(txtdniextrconyprop.Text)
        oF04VR.ciextrconypro = UCase(txtciextrconyprop.Text)
        oF04VR.pasapconypro = UCase(txtpasapconyprop.Text)
        oF04VR.numconypro = UCase(txtnumconyprop.Text)
        oF04VR.autoridadconypro = UCase(txtautoridadconyprop.Text)
        oF04VR.apenomcon = UCase(txtapenomcond.Text)
        oF04VR.solterocon = UCase(txtsolterocond.Text)
        oF04VR.casadocon = UCase(txtsolterocond.Text)
        oF04VR.viudocon = UCase(txtviudocond.Text)
        oF04VR.divcon = UCase(txtdivcond.Text)
        oF04VR.numnupciacon = UCase(txtnumnupciacond.Text)
        oF04VR.apeapodcon = UCase(txtapeapodcond.Text)
        oF04VR.dnicon = UCase(txtdnicond.Text)
        oF04VR.lecon = UCase(txtlecond.Text)
        oF04VR.lccon = UCase(txtlccond.Text)
        oF04VR.dniextrcon = UCase(txtdniextrcond.Text)
        oF04VR.ciextrcon = UCase(txtciextrcond.Text)
        oF04VR.pasapcon = UCase(txtpasapcond.Text)
        oF04VR.numcon = UCase(txtnumcond.Text)
        oF04VR.autoridadcon = UCase(txtautoridadcond.Text)
        oF04VR.apenomconycon = UCase(txtapenomconycond.Text)
        oF04VR.apeapodconycon = UCase(txtapeapodconycond.Text)
        oF04VR.dniconycon = UCase(txtdniconycond.Text)
        oF04VR.lcconycon = UCase(txtlcconycond.Text)
        oF04VR.lcconycon = UCase(txtlcconycond.Text)
        oF04VR.dniextrconycon = UCase(txtdniextrconycond.Text)
        oF04VR.ciextrconycon = UCase(txtciextrconycond.Text)
        oF04VR.pasapconycon = UCase(txtpasapconycond.Text)
        oF04VR.numconycon = UCase(txtnumconycond.Text)
        oF04VR.autoridadconycon = UCase(txtautoridadconycond.Text)
        oF04VR.observacion = UCase(txtobservaciones.Text)
        oF04VR.luga = UCase(txtlugar.Text)
        oF04VR.diafechaa = UCase(txtdiafecha.Text)
        oF04VR.mesfechaa = UCase(txtmesfecha.Text)
        oF04VR.añofechaa = UCase(txtañofecha.Text)
        oF04VR.autorizacio = UCase(txtautorizacion.Text)
        oF04VR.tiponumdocc = UCase(txttiponumdoc.Text)

        Try
            If oF04VRNegocios.guardarF04VR(oF04VR) Then
                MsgBox("La carga ha sido exitosa", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Carga fallida. " + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try
    End Sub

    Private Sub btnEditarReverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditarReverso.Click
        Dim oF04VRNegocios As New Negocios.NF04_VR
        Dim oF04VR As New Entidades.EF04Vehiculos
        oF04VR.apenomacreedo1 = UCase(txtapenomacreedor1.Text)
        oF04VR.apenomaapoderad1 = UCase(txtapenomapoderado1.Text)
        oF04VR.dnii1 = UCase(txtdni1.Text)
        oF04VR.lee1 = UCase(txtle1.Text)
        oF04VR.lcc1 = UCase(txtlc1.Text)
        oF04VR.dniext1 = UCase(txtdniextr1.Text)
        oF04VR.ciext1 = UCase(txtciextr1.Text)
        oF04VR.pasa1 = UCase(txtpasap1.Text)
        oF04VR.numer1 = UCase(txtnumero1.Text)
        oF04VR.autorida1 = UCase(txtautoridad1.Text)
        oF04VR.apenomacreedo2 = UCase(txtapenomacreedor2.Text)
        oF04VR.apenomaapoderad2 = UCase(txtapenomapoderado2.Text)
        oF04VR.dnii2 = UCase(txtdni2.Text)
        oF04VR.lee2 = UCase(txtle2.Text)
        oF04VR.lcc2 = UCase(txtlc1.Text)
        oF04VR.dniext2 = UCase(txtdniextr2.Text)
        oF04VR.ciext2 = UCase(txtciextr2.Text)
        oF04VR.pasa2 = UCase(txtpasap2.Text)
        oF04VR.numer2 = UCase(txtnumero2.Text)
        oF04VR.autorida2 = UCase(txtautoridad2.Text)
        oF04VR.apenompro = UCase(txtapenomprop.Text)
        oF04VR.solteropro = UCase(txtsolteroprop.Text)
        oF04VR.casadopro = UCase(txtsolteroprop.Text)
        oF04VR.viudopro = UCase(txtviudoprop.Text)
        oF04VR.divpro = UCase(txtdivprop.Text)
        oF04VR.numnupciapro = UCase(txtnumnupciaprop.Text)
        oF04VR.apeapodpro = UCase(txtapeapodprop.Text)
        oF04VR.dnipro = UCase(txtdniprop.Text)
        oF04VR.lepro = UCase(txtleprop.Text)
        oF04VR.lcpro = UCase(txtlcprop.Text)
        oF04VR.dniextrpro = UCase(txtdniextrprop.Text)
        oF04VR.ciextrpro = UCase(txtciextrprop.Text)
        oF04VR.pasappro = UCase(txtpasapprop.Text)
        oF04VR.numpro = UCase(txtnumprop.Text)
        oF04VR.autoridadpro = UCase(txtautoridadprop.Text)
        oF04VR.apenomconypro = UCase(txtapenomconyprop.Text)
        oF04VR.apeapodconypro = UCase(txtapeapodconyprop.Text)
        oF04VR.dniconypro = UCase(txtdniconyprop.Text)
        oF04VR.lcconypro = UCase(txtlcconyprop.Text)
        oF04VR.lcconypro = UCase(txtlcconyprop.Text)
        oF04VR.dniextrconypro = UCase(txtdniextrconyprop.Text)
        oF04VR.ciextrconypro = UCase(txtciextrconyprop.Text)
        oF04VR.pasapconypro = UCase(txtpasapconyprop.Text)
        oF04VR.numconypro = UCase(txtnumconyprop.Text)
        oF04VR.autoridadconypro = UCase(txtautoridadconyprop.Text)
        oF04VR.apenomcon = UCase(txtapenomcond.Text)
        oF04VR.solterocon = UCase(txtsolterocond.Text)
        oF04VR.casadocon = UCase(txtsolterocond.Text)
        oF04VR.viudocon = UCase(txtviudocond.Text)
        oF04VR.divcon = UCase(txtdivcond.Text)
        oF04VR.numnupciacon = UCase(txtnumnupciacond.Text)
        oF04VR.apeapodcon = UCase(txtapeapodcond.Text)
        oF04VR.dnicon = UCase(txtdnicond.Text)
        oF04VR.lecon = UCase(txtlecond.Text)
        oF04VR.lccon = UCase(txtlccond.Text)
        oF04VR.dniextrcon = UCase(txtdniextrcond.Text)
        oF04VR.ciextrcon = UCase(txtciextrcond.Text)
        oF04VR.pasapcon = UCase(txtpasapcond.Text)
        oF04VR.numcon = UCase(txtnumcond.Text)
        oF04VR.autoridadcon = UCase(txtautoridadcond.Text)
        oF04VR.apenomconycon = UCase(txtapenomconycond.Text)
        oF04VR.apeapodconycon = UCase(txtapeapodconycond.Text)
        oF04VR.dniconycon = UCase(txtdniconycond.Text)
        oF04VR.lcconycon = UCase(txtlcconycond.Text)
        oF04VR.lcconycon = UCase(txtlcconycond.Text)
        oF04VR.dniextrconycon = UCase(txtdniextrconycond.Text)
        oF04VR.ciextrconycon = UCase(txtciextrconycond.Text)
        oF04VR.pasapconycon = UCase(txtpasapconycond.Text)
        oF04VR.numconycon = UCase(txtnumconycond.Text)
        oF04VR.autoridadconycon = UCase(txtautoridadconycond.Text)
        oF04VR.observacion = UCase(txtobservaciones.Text)
        oF04VR.luga = UCase(txtlugar.Text)
        oF04VR.diafechaa = UCase(txtdiafecha.Text)
        oF04VR.mesfechaa = UCase(txtmesfecha.Text)
        oF04VR.añofechaa = UCase(txtañofecha.Text)
        oF04VR.autorizacio = UCase(txtautorizacion.Text)
        oF04VR.tiponumdocc = UCase(txttiponumdoc.Text)

        Try
            If oF04VRNegocios.editarF04VR(oF04VR) Then
                MsgBox("La Edición ha sido exitosa", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Edición fallida. " + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try
    End Sub


    Private Sub btnEditarAnverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditarAnverso.Click
        F04_M_anverso_.Show()
    End Sub

    Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click
        Me.Close()
    End Sub

    Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click
        txtapenomacreedor1.Text = ""
        txtapenomapoderado1.Text = ""
        txtdni1.Text = ""
        txtle1.Text = ""
        txtlc1.Text = ""
        txtdniextr1.Text = ""
        txtciextr1.Text = ""
        txtpasap1.Text = ""
        txtnumero1.Text = ""
        txtautoridad1.Text = ""
        txtapenomacreedor2.Text = ""
        txtapenomapoderado2.Text = ""
        txtdni2.Text = ""
        txtle2.Text = ""
        txtlc2.Text = ""
        txtdniextr2.Text = ""
        txtciextr2.Text = ""
        txtpasap2.Text = ""
        txtnumero2.Text = ""
        txtautoridad2.Text = ""
        txtapenomprop.Text = ""
        txtsolteroprop.Text = ""
        txtcasadoprop.Text = ""
        txtviudoprop.Text = ""
        txtdivprop.Text = ""
        txtnumnupciaprop.Text = ""
        txtapeapodprop.Text = ""
        txtdniprop.Text = ""
        txtleprop.Text = ""
        txtlcprop.Text = ""
        txtdniextrprop.Text = ""
        txtciextrprop.Text = ""
        txtpasapprop.Text = ""
        txtnumprop.Text = ""
        txtautoridadprop.Text = ""
        txtapenomconyprop.Text = ""
        txtdniconyprop.Text = ""
        txtleconyprop.Text = ""
        txtlcconyprop.Text = ""
        txtdniextrconyprop.Text = ""
        txtciextrprop.Text = ""
        txtpasapconyprop.Text = ""
        txtnumconyprop.Text = ""
        txtautoridadconyprop.Text = ""
        txtapenomcond.Text = ""
        txtsolterocond.Text = ""
        txtcasadocond.Text = ""
        txtviudocond.Text = ""
        txtdivcond.Text = ""
        txtnumnupciacond.Text = ""
        txtapeapodcond.Text = ""
        txtdnicond.Text = ""
        txtlecond.Text = ""
        txtlccond.Text = ""
        txtdniextrcond.Text = ""
        txtciextrcond.Text = ""
        txtpasapcond.Text = ""
        txtnumcond.Text = ""
        txtautoridadcond.Text = ""
        txtapenomconycond.Text = ""
        txtdniconycond.Text = ""
        txtleconycond.Text = ""
        txtlcconycond.Text = ""
        txtdniextrconycond.Text = ""
        txtciextrcond.Text = ""
        txtpasapconycond.Text = ""
        txtnumconycond.Text = ""
        txtautoridadconycond.Text = ""
        txtobservaciones.Text = ""
        txtlugar.Text = ""
        txtdiafecha.Text = ""
        txtmesfecha.Text = ""
        txtañofecha.Text = ""
        txtautorizacion.Text = ""
        txttiponumdoc.Text = ""
    End Sub

    Private Sub btnF01V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF01V.Click
        F01_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF01M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF01M.Click
        F01_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF01I_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF01I.Click
        F01_VImp_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF02V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF02V.Click
        F02_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF02M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF02M.Click
        F02_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF04V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF04V.Click
        F04_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
        F04_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF08V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF08V.Click
        F08_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF08M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF08M.Click
        F08_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF11V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF11V.Click
        F11_V_anverso_.Show()
        Me.Close()

    End Sub

    Private Sub btnF11M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF11M.Click
        F11_M_anverso_.Show()
        Me.Close()

    End Sub

    Private Sub btnF12V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF12V.Click
        F12_V.Show()
        Me.Close()
    End Sub

    Private Sub btnF12M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF12M.Click
        F12_M.Show()
        Me.Close()
    End Sub

    Private Sub btnF99_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF99.Click
        F99.Show()
        Me.Close()
    End Sub

    Private Sub btnF59M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF59M.Click
        F59_M.Show()
        Me.Close()
    End Sub

    Private Sub btnFR00_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFR00.Click
        F_R00.Show()
        Me.Close()
    End Sub
End Class
